home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / excell1a / form3.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-10-08  |  3.0 KB  |  106 lines
  1. VERSION 5.00
  2. Begin VB.Form Form3 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "You have WON!"
  6.    ClientHeight    =   3195
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   4680
  10.    ControlBox      =   0   'False
  11.    LinkTopic       =   "Form3"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3195
  15.    ScaleWidth      =   4680
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   2  'CenterScreen
  18.    Begin VB.Timer Timer1 
  19.       Interval        =   100
  20.       Left            =   840
  21.       Top             =   480
  22.    End
  23.    Begin VB.CommandButton Command2 
  24.       BackColor       =   &H00FF00FF&
  25.       Caption         =   "&Cancel"
  26.       Height          =   375
  27.       Left            =   3360
  28.       Style           =   1  'Graphical
  29.       TabIndex        =   2
  30.       Top             =   2640
  31.       Width           =   1215
  32.    End
  33.    Begin VB.CommandButton Command1 
  34.       BackColor       =   &H00FF00FF&
  35.       Caption         =   "&Play Again"
  36.       Default         =   -1  'True
  37.       Height          =   375
  38.       Left            =   120
  39.       Style           =   1  'Graphical
  40.       TabIndex        =   1
  41.       Top             =   2640
  42.       Width           =   1215
  43.    End
  44.    Begin VB.Label Label1 
  45.       AutoSize        =   -1  'True
  46.       BackStyle       =   0  'Transparent
  47.       Caption         =   "You Have Won!"
  48.       BeginProperty Font 
  49.          Name            =   "Comic Sans MS"
  50.          Size            =   27.75
  51.          Charset         =   0
  52.          Weight          =   700
  53.          Underline       =   0   'False
  54.          Italic          =   0   'False
  55.          Strikethrough   =   0   'False
  56.       EndProperty
  57.       ForeColor       =   &H00000000&
  58.       Height          =   765
  59.       Left            =   240
  60.       TabIndex        =   0
  61.       Top             =   1200
  62.       Width           =   4005
  63.    End
  64.    Begin VB.Image Image1 
  65.       Height          =   2985
  66.       Left            =   1440
  67.       Picture         =   "Form3.frx":0000
  68.       Stretch         =   -1  'True
  69.       Top             =   240
  70.       Width           =   2370
  71.    End
  72. Attribute VB_Name = "Form3"
  73. Attribute VB_GlobalNameSpace = False
  74. Attribute VB_Creatable = False
  75. Attribute VB_PredeclaredId = True
  76. Attribute VB_Exposed = False
  77. Private Sub Command1_Click()
  78.     Form2.Show
  79.     Form1.lblWord.Caption = ""
  80.     Form1.lblSubject.Caption = ""
  81.     Form1.Enabled = True
  82.     Form2.Enabled = True
  83.     Unload Me
  84. End Sub
  85. Private Sub Command2_Click()
  86.     Form1.Enabled = True
  87.     Form2.Enabled = True
  88.     Unload Me
  89. End Sub
  90. Private Sub Form_Load()
  91.     Form1.Timer1.Enabled = False
  92.     Form1.Enabled = False
  93.     Form2.Enabled = False
  94. End Sub
  95. Private Sub Timer1_Timer()
  96.     Static Timed
  97.     If Timed = 0 Then
  98.         Form3.BackColor = vbBlack
  99.         Timed = 1
  100.     Else
  101.         Form3.BackColor = vbWhite
  102.         Label1.BackColor = vbBlack
  103.         Timed = 0
  104.     End If
  105. End Sub
  106.